home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / perl419x.zip / EG / NOHIGH.BAT < prev   
DOS Batch File  |  1992-02-23  |  623b  |  25 lines
  1. @REM=("
  2. @perl -p %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
  3. @end ") if 0 ;
  4.  
  5. # Usage: invoke with -p switch
  6.  
  7. # Strip highlighting from a formatted manual, for those who
  8. # can't deal with the highlighting.
  9.  
  10. # Nroff puts in hightlighting as follows:
  11. #    Boldface is cBcBc for each bold c
  12. #    Underlining is _Bc for each underlined c.
  13. # where B is a backspace.  In perl, as in C, a backspace is Ascii \010.
  14.  
  15. # We simply strip every character preceding a backspace and the backspace.
  16. # Reads from file list (or STDIN) and writes to STDOUT.
  17. # (Or can invoke with -i for edit-in-place.)
  18. #
  19. # By Len Reed.
  20.  
  21. s/.\010//g;
  22.  
  23. @REM=(qq!
  24. :end !) if 0 ;
  25.